home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / Chris_emods.lha / screens.e < prev    next >
Text File  |  1997-09-05  |  595b  |  31 lines
  1. OPT MODULE
  2.  
  3. /* SV: no exception handler necessary because we don't do complicate things.
  4. ** Results in much smaller code and looks cleaner.
  5. */
  6. EXPORT PROC findpubscreen(scrname)
  7. DEF pslist,       -> we need no types here
  8.     found=FALSE   -> already initialized
  9.  
  10.   /* FindName() won't accept an NIL-pointer (enforcer-hits).
  11.   */
  12.   IF scrname
  13.  
  14.     /* look pubscreen list
  15.     */
  16.     IF pslist := LockPubScreenList()
  17.  
  18.       /* find the name
  19.       */
  20.       IF FindName(pslist, scrname) THEN found := TRUE
  21.  
  22.       /* unlock list
  23.       */
  24.       UnlockPubScreenList()
  25.     ENDIF
  26.  
  27.   ENDIF
  28.  
  29. ENDPROC found
  30.  
  31.